home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue70 / DBEX / Listing2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-04-30  |  403 b   |  17 lines
  1. var
  2.   List: TList;
  3.   Params: TParams;
  4.   intParam: integer;
  5. begin
  6.   ListBox5.Clear;
  7.   List:=TList.Create;
  8.   SQLConnection1.GetProcedureParams(
  9.   ListBox4.Items[ListBox4.ItemIndex], List);
  10.   Params:=TParams.Create;
  11.   LoadParamListItems(Params, List);
  12.   for intParam:=0 to Params.Count - 1 do
  13.     ListBox5.Items.Add(Params.Items[intParam].Name);
  14.   Params.Free;
  15.   FreeProcParams(List);
  16. end;
  17.